home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / SHORT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  545 b   |  10 lines
  1. 1  CLS:SCREEN 1:KEY OFF:LOCATE 12,10:PRINT "SHORT HORSE RACE ":LOCATE 14,3:INPUT "PICK EITHER 1 OR 2, HIT RETURN ",D$:CLS
  2. 2  CLS:SCREEN 1:KEY OFF:A$="ONE":B$="TWO":N=1:W=1:LOCATE 8,N:PRINT A$:LOCATE 16,W:PRINT B$
  3. 3  LOCATE 8,N:PRINT A$:LOCATE 16,W:PRINT B$
  4. 4  FOR I=1 TO 20:RANDOMIZE(INT(VAL(RIGHT$(TIME$,2)))):O=INT(RND*4)+1:T=INT(RND*4)+1
  5. 5  FOR C=N TO N+O:LOCATE 8,C:PRINT "   ":LOCATE 8,C+1:PRINT A$:NEXT:FOR C=W TO W+T:LOCATE 16,C:PRINT "   ":LOCATE 16,C+1:PRINT B$:NEXT:N=N+O:W=W+T:IF N>32 OR W>32 THEN 7
  6. 6  NEXT
  7. 7  IF N>W THEN WI=1 ELSE WI=2
  8. 8  IF WI=1 THEN OW=OW+1 ELSE TW=TW+1
  9. 9  CLS:LOCATE 12,10:PRINT "WINNER ";WI:LOCATE 14,10:PRINT "ONE ";OW:LOCATE 16,10:PRINT "TWO ";TW:LOCATE 20,12:INPUT "HIT ENTER TO PLAY AGAIN ",C$:GOTO 2
  10.